home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2002 November / SGI IRIX Base Documentation 2002 November.iso / usr / share / catman / p_man / cat3 / f90 / set_exponent.z / set_exponent
Encoding:
Text File  |  2002-10-03  |  2.2 KB  |  56 lines
  1. SET_EXPONENT(3I)                                      Last changed: 4-13-99
  2.  
  3.  
  4. NNAAMMEE
  5.      SSEETT__EEXXPPOONNEENNTT - Sets exponent part of a number
  6.  
  7. SSYYNNOOPPSSIISS
  8.      SSEETT__EEXXPPOONNEENNTT (([XX==]_x,, [II==]_i))
  9.  
  10. IIMMPPLLEEMMEENNTTAATTIIOONN
  11.      UNICOS, UNICOS/mk, IRIX systems
  12.  
  13.      CF90, MIPSpro 7 Fortran 90
  14.  
  15. SSTTAANNDDAARRDDSS
  16.      Fortran
  17.  
  18. DDEESSCCRRIIPPTTIIOONN
  19.      The SSEETT__EEXXPPOONNEENNTT intrinsic function sets the exponent part of a
  20.      number.  It returns the numeric model number whose fractional part is
  21.      the fractional part of the real number model representation of _x and
  22.      whose exponent part is _i.  For more information on the real number
  23.      model, see the MMOODDEELLSS(3I) man page.  It accepts the following
  24.      arguments:
  25.  
  26.      _x         Must be of type real.
  27.  
  28.      _i         Must be of type integer.
  29.  
  30.      SSEETT__EEXXPPOONNEENNTT is an elemental function.  The name of this intrinsic
  31.      cannot be passed as an argument.
  32.  
  33. NNOOTTEESS
  34.      This routine is implemented on CRAY T90 systems that support IEEE
  35.      arithmetic by calls to scalar-only library routines.
  36.  
  37. RREETTUURRNN VVAALLUUEESS
  38.      The result type and type parameter are the same as _x.
  39.                                    _i-_e
  40.      The result has the value (_x)(_b   ), where _b and _e are defined in the
  41.      model, provided that this result is within range.  Argument _i should
  42.      be within the range of MMIINNEEXXPPOONNEENNTT((_x)) <= _i <= MMAAXXEEXXPPOONNEENNTT((_x)).  If _i is
  43.      outside this range, the results are unpredictable.  If _x has value 0,
  44.      the result has value 0.
  45.  
  46. EEXXAAMMPPLLEESS
  47.      SSEETT__EEXXPPOONNEENNTT((33..00,, 11)) has the value 1.5.
  48.  
  49. SSEEEE AALLSSOO
  50.      MMOODDEELLSS(3I)
  51.  
  52.      _F_o_r_t_r_a_n _L_a_n_g_u_a_g_e _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l, _V_o_l_u_m_e _2
  53.  
  54.      _I_n_t_r_i_n_s_i_c _P_r_o_c_e_d_u_r_e_s _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l for the printed version of this
  55.      man page.
  56.